Type Mismatch ForallInt

Notes/Domino 8 Forum

Subject: Type Mismatch ForallInt

Feedback Type: Problem

Product Area: Designer Client

Technical Area: Error Message

Platform: ALL

Release: All

Reproducible: Always

hi everybody.

I'm developing a script that checks the name of an attached file in a RT lite field. The formulary must be saved when this file has a .pdf extension only. I made this script works, but when we run this script I get this error "TYPE MISMATCH IN METHOD FORALLINT, FROMVAR FOUND, UNKNOW EXPECTED", when we start the Forall Loop.

I looked for solutions on internet, but there are so few explanations about this error.
I hope that someone can help me..

Any answer will be appreciated.

Here's the code:

Dim session As New NotesSession
Dim wks As New NotesUIWorkspace
Dim db As NotesDatabase

Set db = session.currentDatabase
Set uidoc = wks.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.document
Dim rtitem As Variant

Set rtitem = doc.GetFirstItem("proposta")
If (rtitem.Type = RICHTEXT) Then
Forall o In rtitem.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then
Msgbox o.source
Dim smtpAddress As String
smtpAddress = o.Source
If smtpAddress <> "" Then
If Not smtpAddress Like "*.pdf" Then
Msgbox "Insira um arquivo com extensão .pdf!"
Call o.remove
Exit Sub
End If
End If
End If
End Forall
End If

Feedback number WEBB937PUP created by ~Arnold Cisaly on 12/21/2012

Status: Open
Comments: